home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / shelp50a.zip / HELP.PRG < prev    next >
Text File  |  1991-08-11  |  6KB  |  167 lines
  1.  
  2. FUNCTION Help
  3. *==========================================================================
  4. *    Help  (Field Level Help System)
  5. *    Project Name: Helpdemo
  6. *    Project Description: Superhelp Library   
  7. *    Written By: Darryl Strickland   
  8. * 
  9. *    Help System Generated by Superhelp Codegen 5.0
  10. *    Generated August 11, 1991  -   8:42 PM
  11. *    Copyright (c) by DJS Applications    
  12. *
  13. *    Help Methods - Simulated Memoedit
  14. *                   Superhelp Codegen Reference File Produced (SHELP.REF   )
  15. *                   Help System Requires Superhlp.Lib at Link Time
  16. *
  17. *    Thank you for using Superhelp Code Generator 5.0  -  DJS Applications
  18. *==========================================================================
  19. PARAMETER cProc,nLine,cVar
  20. LOCAL nRowhlp,nColhlp,lBadfile,cOldArea,cOldColor
  21. LOCAL nCurState,nHelpSize
  22. LOCAL nBurnSize,cBurnDate,cBurnTime
  23. PRIVATE nHlphandle,nTopRow,nLeftCol,nBotRow,nRightCol,cHeader
  24. PRIVATE cFooter,nHeadcol,nFootcol,cWinColor,nShadClrf,nShadClrb,cFrame,cMidBar
  25. PRIVATE nWinType,cShadType,nBoxMethod,lIplode,lXplodeTxt,nHlpSpacer
  26. PRIVATE cHeadColor,cFootColor,cFramColor,cTrimHdr,nFootType
  27. PRIVATE lMicroVoic,lEditRef,nPadSize,nLookPt,cOldScr
  28. PRIVATE nTxtSize,nMWidth,nNoLines,nDspMeth,nLineSize,cTrimFoot
  29. PRIVATE nText_Cnt,nScrnSize,nStartRow,lOutLoop,nNoFrames,nBliMrkx
  30. PRIVATE nLines,nCnt,cSpeakStr,lSpeakOk,lVoiceload,cLstDir,nStartPt,aHelpline:={}
  31. PRIVATE nReadSize,lTopPage,lBotPage,nByteRead,nPrevRead
  32. SET PROCEDURE TO HELPLIB
  33. SET PROCEDURE TO HELPMGR
  34. SET PROCEDURE TO HELPCON
  35. SETBLINK(.F.)
  36. lVoiceload := .F.
  37. nBliMrkx := 13
  38. nRowhlp := ROW()
  39. nColhlp := COL()
  40. SET KEY 28 TO
  41. cOldcolor := SETCOLOR()
  42. nCurState := SETCURSOR(0)
  43. cProc := TRIM(cProc)
  44. cVar := TRIM(cVar)
  45. cOldscr := SAVESCREEN(0,0,MaxRow(),MaxCol())
  46. lBadfile := .F.
  47. IF FILE("SHELP.REF")
  48.    nHlphandle := FOPEN("SHELP.REF",2)
  49.    nHlpsize := FSEEK(nHlphandle,0,2)
  50.    FSEEK(nHlphandle,-20,2)
  51.    nBurnSize := SPACE(7)
  52.    cBurnDate := SPACE(8)
  53.    cBurnTime := SPACE(5)
  54.    FREAD(nHlphandle,@nBurnSize,7)
  55.    FREAD(nHlphandle,@cBurnDate,8)
  56.    FREAD(nHlphandle,@cBurnTime,5)
  57.    FSEEK(nHlphandle,0)
  58.    IF nHlpsize <> VAL(nBurnSize) .OR. '08/11/91' <> cBurnDate .OR. '20:42' <> cBurnTime
  59.       lBadfile := .T.
  60.    ENDIF
  61. ELSE
  62.    lBadfile := .T.
  63. ENDIF
  64. IF lBadfile
  65.    SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  66.    @09,22 SAY "╢ Help Error ╟"
  67.    @11,22 SAY "Please restore SHELP.REF from disk"
  68.    @13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
  69.    INKEY(10)
  70.    SETCOLOR(cOldcolor)
  71.    SET KEY 28 TO Help
  72.    @nRowhlp,nColhlp SAY ""
  73.    RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  74.    RETURN NIL
  75. ENDIF
  76. DO CASE
  77.  
  78.    * Window Description : Superhelp Introduction             
  79.    CASE (cProc == "HELPDEMO" .AND. cVar == "A")
  80.       HELPPREP(218)
  81.  
  82.    * Window Description : Window Commands                    
  83.    CASE (cProc == "HELPDEMO" .AND. cVar == "B")
  84.       HELPPREP(3809)
  85.  
  86.    * Window Description : Color Commands                     
  87.    CASE (cProc == "HELPDEMO" .AND. cVar == "C")
  88.       HELPPREP(9707)
  89.  
  90.    * Window Description : Shadow Commands                    
  91.    CASE (cProc == "HELPDEMO" .AND. cVar == "D")
  92.       HELPPREP(10473)
  93.  
  94.    * Window Description : Help Code Generation               
  95.    CASE (cProc == "HELPDEMO" .AND. cVar == "E")
  96.       HELPPREP(11431)
  97.  
  98.    * Window Description : User Guide Generation              
  99.    CASE (cProc == "HELPDEMO" .AND. cVar == "F")
  100.       HELPPREP(13053)
  101.  
  102.    * Window Description : Data Dictionary Generation         
  103.    CASE (cProc == "HELPDEMO" .AND. cVar == "G")
  104.       HELPPREP(13677)
  105.  
  106.    * Window Description : Help Text Commands                 
  107.    CASE (cProc == "HELPDEMO" .AND. cVar == "H")
  108.       HELPPREP(14296)
  109.  
  110.    * Window Description : System Defaults                    
  111.    CASE (cProc == "HELPDEMO" .AND. cVar == "I")
  112.       HELPPREP(20618)
  113.  
  114.    * Window Description : Import/Export Text                 
  115.    CASE (cProc == "HELPDEMO" .AND. cVar == "J")
  116.       HELPPREP(29752)
  117.  
  118.    * Window Description : Project Information Setup          
  119.    CASE (cProc == "HELPDEMO" .AND. cVar == "K")
  120.       HELPPREP(30870)
  121.  
  122.    * Window Description : Color Setup                        
  123.    CASE (cProc == "HELPDEMO" .AND. cVar == "L")
  124.       HELPPREP(32260)
  125.  
  126.    * Window Description : Screen Capture Utility             
  127.    CASE (cProc == "HELPDEMO" .AND. cVar == "M")
  128.       HELPPREP(32790)
  129.  
  130.    * Window Description : Help Manager                       
  131.    CASE (cProc == "HELPDEMO" .AND. cVar == "N")
  132.       HELPPREP(34038)
  133.  
  134.    * Window Description : Link Windows                       
  135.    CASE (cProc == "HELPDEMO" .AND. cVar == "O")
  136.       HELPPREP(35230)
  137.  
  138.    * Window Description : INKEY()/ENKEY() Sample Window      
  139.    CASE (cProc == "NOWAIT" .AND. cVar == "INKEY1")
  140.       HELPPREP(36591)
  141.  
  142.    * Window Description : Link Window Demonstration          
  143.    CASE (cProc == "REGISTER" .AND. cVar == "FNAME");
  144.     .OR. (cProc == "REGISTER" .AND. cVar == "LNAME");
  145.     .OR. (cProc == "REGISTER" .AND. cVar == "ADD1");
  146.     .OR. (cProc == "REGISTER" .AND. cVar == "ADD2");
  147.     .OR. (cProc == "REGISTER" .AND. cVar == "ZIP");
  148.     .OR. (cProc == "REGISTER" .AND. cVar == "PHONE")
  149.       HELPPREP(37133)
  150.    OTHERWISE 
  151.       Helpcon(cProc,0,cVar)
  152.       SETCOLOR(cOldcolor)
  153.       SET KEY 28 TO Help
  154.       @nRowhlp,nColhlp SAY ""
  155.       RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  156.       RETURN NIL
  157. ENDCASE
  158. DSPHELP()
  159. SETCOLOR(cOldcolor)
  160. SET KEY 28 TO Help
  161. FCLOSE(nHlphandle)
  162. SETCURSOR(nCurState)
  163. RELEASE aHelpLine
  164. @nRowhlp,nColhlp SAY ""
  165. RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  166. RETURN NIL
  167.